/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_4 / issue_01 / extras / bucktscrll

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 48 00 00 00 a8 00 00 00 |Archive.|H.......|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 42 75 63 6b 74 53 63 | 72 6c 6c 00 cd 0e 00 00 |.BucktSc|rll.....|
|00000070| 42 fb ff ff 1e 2a 0f 8e | 03 00 79 e0 cd 0e 00 00 |B....*..|..y.....|
|00000080| 24 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |$.......|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 ac 02 00 00 | 46 69 6c 65 44 61 74 61 |........|FileData|
|000000b0| 82 42 75 63 6b 74 53 63 | 72 6c 6c 00 cd 0e 00 00 |.BucktSc|rll.....|
|000000c0| 42 fb ff ff 1e 2a 0f 8e | 03 00 79 e0 0d 00 0a 12 |B....*..|..y.....|
|000000d0| f4 20 3e 20 42 75 63 6b | 74 53 63 72 6c 6c 0d 00 |. > Buck|tScrll..|
|000000e0| 14 2e f4 20 62 79 20 4d | 61 74 74 68 65 77 20 41 |... by M|atthew A|
|000000f0| 73 74 6c 65 79 20 20 20 | 56 31 2e 30 30 20 20 28 |stley   |V1.00  (|
|00000100| 32 37 2d 4a 75 6c 2d 31 | 39 39 30 29 0d 00 1e 16 |27-Jul-1|990)....|
|00000110| ee 20 85 20 f6 3a f1 3b | 22 20 61 74 20 22 3b 9e |. . .:.;|" at ";.|
|00000120| 3a e0 0d 00 28 08 eb 20 | 31 33 0d 00 32 09 f2 69 |:...(.. |13..2..i|
|00000130| 6e 69 74 0d 00 3c 30 f1 | 22 42 55 43 4b 45 54 20 |nit..<0.|"BUCKET |
|00000140| 53 43 52 4f 4c 4c 45 52 | 20 20 20 20 20 20 20 20 |SCROLLER|        |
|00000150| 62 79 20 4d 61 74 74 68 | 65 77 20 41 73 74 6c 65 |by Matth|ew Astle|
|00000160| 79 22 27 0d 00 46 09 f2 | 61 73 73 6d 0d 00 50 27 |y"'..F..|assm..P'|
|00000170| f1 20 22 43 6f 64 65 20 | 2b 20 74 65 78 74 3a 20 |. "Code |+ text: |
|00000180| 20 22 3b 50 25 2d 63 6f | 64 65 3b 22 20 62 79 74 | ";P%-co|de;" byt|
|00000190| 65 73 22 0d 00 5a 21 f1 | 20 22 50 6c 65 61 73 65 |es"..Z!.| "Please|
|000001a0| 20 77 61 69 74 20 68 61 | 6c 66 20 61 20 6d 6f 2e | wait ha|lf a mo.|
|000001b0| 2e 2e 22 3b 0d 00 64 0a | f2 74 61 62 6c 65 0d 00 |..";..d.|.table..|
|000001c0| 6e 35 f1 20 3b bd 31 33 | 3b 22 54 61 62 6c 65 3a |n5. ;.13|;"Table:|
|000001d0| 20 22 3b a8 28 30 2e 35 | 2b 28 50 25 2d 74 61 62 | ";.(0.5|+(P%-tab|
|000001e0| 6c 65 29 2f 31 30 32 34 | 29 3b 22 4b 22 3b 89 28 |le)/1024|);"K";.(|
|000001f0| 32 30 29 0d 00 78 1f f1 | 20 22 50 72 65 73 73 20 |20)..x..| "Press |
|00000200| 73 70 61 63 65 20 74 6f | 20 73 68 75 66 66 6c 65 |space to| shuffle|
|00000210| 22 3b 0d 00 82 08 e7 a5 | 20 db 0d 00 8c 0e 21 4d |";......| .....!M|
|00000220| 65 6e 64 3d 50 25 2d 38 | 0d 00 96 07 f2 67 6f 0d |end=P%-8|.....go.|
|00000230| 00 a0 05 e0 0d 00 aa 05 | 3a 0d 00 b4 0b dd 20 f2 |........|:..... .|
|00000240| 69 6e 69 74 0d 00 be 47 | 20 66 67 3d 32 30 32 20 |init...G| fg=202 |
|00000250| 20 20 3a f4 20 4c 69 67 | 68 74 20 62 6c 75 65 20 |  :. Lig|ht blue |
|00000260| 7d 20 20 42 79 74 65 73 | 20 74 6f 20 70 6f 6b 65 |}  Bytes| to poke|
|00000270| 20 74 6f 20 73 63 72 65 | 65 6e 3b 20 63 6f 6c 6f | to scre|en; colo|
|00000280| 75 72 73 20 6f 66 20 74 | 65 78 74 0d 00 c8 1d 20 |urs of t|ext.... |
|00000290| 62 67 3d 20 20 30 20 20 | 20 3a f4 20 42 6c 61 63 |bg=  0  | :. Blac|
|000002a0| 6b 20 20 20 20 20 20 7d | 0d 00 d2 23 20 73 70 65 |k      }|...# spe|
|000002b0| 65 64 25 3d 32 20 3a f4 | 20 50 69 78 65 6c 73 20 |ed%=2 :.| Pixels |
|000002c0| 70 65 72 20 73 68 75 66 | 66 6c 65 0d 00 dc 3e 20 |per shuf|fle...> |
|000002d0| f4 20 8a 20 58 3d 30 2d | 33 31 39 2c 20 59 3d 30 |. . X=0-|319, Y=0|
|000002e0| 2d 32 35 35 20 5b 30 2c | 30 5d 20 69 73 20 74 6f |-255 [0,|0] is to|
|000002f0| 70 20 72 69 67 68 74 2e | 20 31 20 75 6e 69 74 20 |p right.| 1 unit |
|00000300| 3d 20 31 20 70 69 78 65 | 6c 0d 00 e6 0f 20 f4 20 |= 1 pixe|l.... . |
|00000310| 46 6f 72 6d 75 6c 61 3a | 0d 00 f0 27 20 66 24 3d |Formula:|...' f$=|
|00000320| 22 31 32 38 2d 53 49 4e | 52 41 44 28 33 36 30 2a |"128-SIN|RAD(360*|
|00000330| 58 2f 33 32 30 29 2a 36 | 30 2b 63 6f 6c 25 22 0d |X/320)*6|0+col%".|
|00000340| 00 fa 7f 20 f4 20 4e 42 | 2e 20 49 66 20 74 68 65 |... . NB|. If the|
|00000350| 20 66 6f 72 6d 75 6c 61 | 20 67 6f 65 73 20 6f 66 | formula| goes of|
|00000360| 66 20 74 68 65 20 73 63 | 72 65 65 6e 2c 20 69 74 |f the sc|reen, it|
|00000370| 20 77 69 6c 6c 20 65 69 | 74 68 65 72 20 77 72 61 | will ei|ther wra|
|00000380| 70 20 74 6f 20 74 68 65 | 20 6f 74 68 65 72 20 73 |p to the| other s|
|00000390| 69 64 65 2c 20 67 69 76 | 65 20 41 64 64 72 65 73 |ide, giv|e Addres|
|000003a0| 73 20 65 78 63 65 70 74 | 69 6f 6e 20 6f 72 20 6a |s except|ion or j|
|000003b0| 75 73 74 20 64 6f 20 6e | 6f 74 68 69 6e 67 0d 01 |ust do n|othing..|
|000003c0| 04 05 3a 0d 01 0e 09 58 | 3d 33 31 39 0d 01 18 46 |..:....X|=319...F|
|000003d0| 63 6f 6c 25 3d 31 36 20 | 20 20 20 20 20 20 3a f4 |col%=16 |      :.|
|000003e0| 20 46 6f 72 20 6d 6f 72 | 65 20 74 68 61 6e 20 31 | For mor|e than 1|
|000003f0| 36 2c 20 69 74 20 73 74 | 61 72 74 73 20 73 6c 6f |6, it st|arts slo|
|00000400| 77 69 6e 67 20 64 6f 77 | 6e 20 61 20 62 69 74 2e |wing dow|n a bit.|
|00000410| 2e 2e 0d 01 22 42 20 20 | 20 20 20 20 20 20 20 20 |...."B  |        |
|00000420| 20 20 20 20 3a f4 20 55 | 6e 6c 65 73 73 20 79 6f |    :. U|nless yo|
|00000430| 75 20 68 61 76 65 20 61 | 6e 20 41 52 4d 20 33 2e |u have a|n ARM 3.|
|00000440| 2e 2e 20 20 54 72 79 20 | 71 75 61 64 20 68 65 69 |..  Try |quad hei|
|00000450| 67 68 74 21 0d 01 2c 3b | 73 74 58 25 3d 58 20 20 |ght!..,;|stX%=X  |
|00000460| 20 20 20 20 20 20 3a f4 | 20 58 20 6f 66 20 73 74 |      :.| X of st|
|00000470| 61 72 74 20 6f 66 20 74 | 65 78 74 20 28 69 63 20 |art of t|ext (ic |
|00000480| 2d 20 30 2d 33 31 39 2c | 20 30 2d 32 35 35 29 0d |- 0-319,| 0-255).|
|00000490| 01 36 1c 73 74 59 25 3d | a0 28 66 24 29 20 3a f4 |.6.stY%=|.(f$) :.|
|000004a0| 20 59 20 6f 66 20 73 74 | 61 72 74 0d 01 40 1b de | Y of st|art..@..|
|000004b0| 20 78 25 28 63 6f 6c 25 | 2d 31 29 2c 79 25 28 63 | x%(col%|-1),y%(c|
|000004c0| 6f 6c 25 2d 31 29 0d 01 | 4a 05 3a 0d 01 54 3a de |ol%-1)..|J.:..T:.|
|000004d0| 20 63 6f 64 65 20 32 35 | 36 30 2a 63 6f 6c 25 2b | code 25|60*col%+|
|000004e0| 35 31 32 2b 31 30 32 34 | 2a 31 30 20 3a f4 20 41 |512+1024|*10 :. A|
|000004f0| 6c 6c 6f 77 73 20 66 6f | 72 20 31 30 6b 20 6f 66 |llows fo|r 10k of|
|00000500| 20 74 65 78 74 0d 01 5e | 0d 21 63 6f 64 65 3d 31 | text..^|.!code=1|
|00000510| 34 39 0d 01 68 0d 63 6f | 64 65 21 34 3d 2d 31 0d |49..h.co|de!4=-1.|
|00000520| 01 72 26 c8 99 20 22 4f | 53 5f 52 65 61 64 56 64 |.r&.. "O|S_ReadVd|
|00000530| 75 56 61 72 69 61 62 6c | 65 73 22 2c 63 6f 64 65 |uVariabl|es",code|
|00000540| 2c 63 6f 64 65 0d 01 7c | 0e 73 63 72 25 3d 21 63 |,code..||.scr%=!c|
|00000550| 6f 64 65 0d 01 86 05 e1 | 0d 01 90 05 3a 0d 01 9a |ode.....|....:...|
|00000560| 0b dd 20 f2 61 73 73 6d | 0d 01 a4 14 e3 20 70 61 |.. .assm|..... pa|
|00000570| 73 73 3d 30 20 b8 20 32 | 20 88 20 32 0d 01 ae 0b |ss=0 . 2| . 2....|
|00000580| 50 25 3d 63 6f 64 65 0d | 01 b8 0d 5b 4f 50 54 20 |P%=code.|...[OPT |
|00000590| 70 61 73 73 0d 01 c2 12 | 2e 64 75 6d 6d 79 20 20 |pass....|.dummy  |
|000005a0| 45 51 55 44 20 30 0d 01 | cc 12 2e 4d 65 6e 64 20 |EQUD 0..|...Mend |
|000005b0| 20 20 45 51 55 44 20 30 | 0d 01 d6 15 2e 4d 74 65 |  EQUD 0|.....Mte|
|000005c0| 78 74 20 20 45 51 55 44 | 20 74 65 78 74 0d 01 e0 |xt  EQUD| text...|
|000005d0| 16 2e 4d 74 61 62 6c 65 | 20 45 51 55 44 20 74 61 |..Mtable| EQUD ta|
|000005e0| 62 6c 65 0d 01 ea 26 2e | 69 6e 70 75 74 20 3a 5d |ble...&.|input :]|
|000005f0| 3a 50 25 2b 3d 63 6f 6c | 25 3a 5b 4f 50 54 20 70 |:P%+=col|%:[OPT p|
|00000600| 61 73 73 3a 41 4c 49 47 | 4e 0d 01 f4 2b 2e 69 6e |ass:ALIG|N...+.in|
|00000610| 64 65 78 20 20 45 51 55 | 44 20 30 20 3b 20 49 6e |dex  EQU|D 0 ; In|
|00000620| 64 65 78 20 69 6e 74 6f | 20 74 65 78 74 20 73 74 |dex into| text st|
|00000630| 72 69 6e 67 0d 01 fe 34 | 2e 6c 65 6e 54 20 20 20 |ring...4|.lenT   |
|00000640| 45 51 55 44 20 65 6e 64 | 54 78 74 2d 74 65 78 74 |EQUD end|Txt-text|
|00000650| 20 3b 20 4c 65 6e 67 74 | 68 20 6f 66 20 74 65 78 | ; Lengt|h of tex|
|00000660| 74 20 73 74 72 69 6e 67 | 0d 02 08 05 3a 0d 02 12 |t string|....:...|
|00000670| 33 2e 42 6c 65 66 74 20 | 20 45 51 55 42 20 34 20 |3.Bleft | EQUB 4 |
|00000680| 3b 20 42 69 74 73 20 6c | 65 66 74 20 69 6e 20 63 |; Bits l|eft in c|
|00000690| 75 72 72 65 6e 74 20 63 | 68 61 72 61 63 74 65 72 |urrent c|haracter|
|000006a0| 0d 02 1c 05 3a 0d 02 26 | 23 2e 63 68 61 72 20 20 |....:..&|#.char  |
|000006b0| 20 45 51 55 42 20 30 20 | 3b 20 4e 65 78 74 20 63 | EQUB 0 |; Next c|
|000006c0| 68 61 72 61 63 74 65 72 | 0d 02 30 3f 2e 62 69 74 |haracter|..0?.bit|
|000006d0| 73 20 20 20 45 51 55 44 | 20 30 3a 45 51 55 44 20 |s   EQUD| 0:EQUD |
|000006e0| 30 20 3b 20 42 69 74 73 | 20 6f 66 20 63 75 72 72 |0 ; Bits| of curr|
|000006f0| 65 6e 74 20 63 68 61 72 | 20 61 73 20 66 72 6f 6d |ent char| as from|
|00000700| 20 4f 53 57 4f 52 44 0d | 02 3a 09 41 4c 49 47 4e | OSWORD.|.:.ALIGN|
|00000710| 0d 02 44 05 3a 0d 02 4e | 0c 2e 73 68 75 66 66 6c |..D.:..N|..shuffl|
|00000720| 65 0d 02 58 33 4d 4f 56 | 20 52 30 2c 23 31 39 3a |e..X3MOV| R0,#19:|
|00000730| 53 57 49 20 22 4f 53 5f | 42 79 74 65 22 20 3b 20 |SWI "OS_|Byte" ; |
|00000740| 57 61 69 74 20 66 6f 72 | 20 73 63 72 65 65 6e 20 |Wait for| screen |
|00000750| 73 79 6e 63 0d 02 62 11 | 4c 44 52 42 20 52 30 2c |sync..b.|LDRB R0,|
|00000760| 42 6c 65 66 74 0d 02 6c | 0d 43 4d 50 20 52 30 2c |Bleft..l|.CMP R0,|
|00000770| 23 34 0d 02 76 0e 42 4e | 45 20 6e 6f 5f 70 75 74 |#4..v.BN|E no_put|
|00000780| 0d 02 80 10 4c 44 52 20 | 52 30 2c 4d 74 65 78 74 |....LDR |R0,Mtext|
|00000790| 0d 02 8a 10 4c 44 52 20 | 52 31 2c 69 6e 64 65 78 |....LDR |R1,index|
|000007a0| 0d 02 94 0f 4c 44 52 20 | 52 33 2c 6c 65 6e 54 0d |....LDR |R3,lenT.|
|000007b0| 02 9e 13 4c 44 52 42 20 | 52 32 2c 5b 52 30 2c 52 |...LDRB |R2,[R0,R|
|000007c0| 31 5d 0d 02 a8 10 53 54 | 52 42 20 52 32 2c 63 68 |1]....ST|RB R2,ch|
|000007d0| 61 72 0d 02 b2 10 41 44 | 44 20 52 31 2c 52 31 2c |ar....AD|D R1,R1,|
|000007e0| 23 31 0d 02 bc 0d 43 4d | 50 20 52 31 2c 52 33 0d |#1....CM|P R1,R3.|
|000007f0| 02 c6 0c ec 51 20 52 31 | 2c 23 30 0d 02 d0 10 53 |....Q R1|,#0....S|
|00000800| 54 52 20 52 31 2c 69 6e | 64 65 78 0d 02 da 0b 2e |TR R1,in|dex.....|
|00000810| 6e 6f 5f 70 75 74 0d 02 | e4 0d 4d 4f 56 20 52 30 |no_put..|..MOV R0|
|00000820| 2c 23 38 0d 02 ee 0f 41 | 44 52 20 52 31 2c 62 69 |,#8....A|DR R1,bi|
|00000830| 74 73 0d 02 f8 10 41 44 | 52 20 52 33 2c 69 6e 70 |ts....AD|R R3,inp|
|00000840| 75 74 0d 03 02 0d 2e 62 | 69 74 5f 6c 6f 6f 70 0d |ut.....b|it_loop.|
|00000850| 03 0c 10 4c 44 52 42 20 | 52 32 2c 5b 52 31 5d 0d |...LDRB |R2,[R1].|
|00000860| 03 16 16 4d 4f 56 53 20 | 52 32 2c 52 32 2c 4c 53 |...MOVS |R2,R2,LS|
|00000870| 4c 20 23 32 35 0d 03 20 | 15 4d 4f 56 20 52 32 2c |L #25.. |.MOV R2,|
|00000880| 52 32 2c 4c 53 52 20 23 | 32 34 0d 03 2a 13 53 54 |R2,LSR #|24..*.ST|
|00000890| 52 42 20 52 32 2c 5b 52 | 31 5d 2c 23 31 0d 03 34 |RB R2,[R|1],#1..4|
|000008a0| 10 4d 4f 56 43 43 20 52 | 32 2c 23 62 67 0d 03 3e |.MOVCC R|2,#bg..>|
|000008b0| 10 4d 4f 56 43 53 20 52 | 32 2c 23 66 67 0d 03 48 |.MOVCS R|2,#fg..H|
|000008c0| 13 53 54 52 42 20 52 32 | 2c 5b 52 33 5d 2c 23 31 |.STRB R2|,[R3],#1|
|000008d0| 0d 03 52 23 53 54 52 42 | 20 52 32 2c 5b 52 33 5d |..R#STRB| R2,[R3]|
|000008e0| 2c 23 31 20 3b 20 44 6f | 75 62 6c 65 20 68 65 69 |,#1 ; Do|uble hei|
|000008f0| 67 68 74 0d 03 5c 11 53 | 55 42 53 20 52 30 2c 52 |ght..\.S|UBS R0,R|
|00000900| 30 2c 23 31 0d 03 66 10 | 42 4e 45 20 62 69 74 5f |0,#1..f.|BNE bit_|
|00000910| 6c 6f 6f 70 0d 03 70 11 | 4c 44 52 42 20 52 30 2c |loop..p.|LDRB R0,|
|00000920| 42 6c 65 66 74 0d 03 7a | 11 53 55 42 53 20 52 30 |Bleft..z|.SUBS R0|
|00000930| 2c 52 30 2c 23 31 0d 03 | 84 11 53 54 52 42 20 52 |,R0,#1..|..STRB R|
|00000940| 30 2c 42 6c 65 66 74 0d | 03 8e 0f 42 4e 45 20 6e |0,Bleft.|...BNE n|
|00000950| 6f 5f 6e 65 78 74 0d 03 | 98 1e 4d 4f 56 20 52 30 |o_next..|..MOV R0|
|00000960| 2c 23 31 30 20 3b 20 52 | 65 61 64 20 63 68 72 20 |,#10 ; R|ead chr |
|00000970| 64 65 66 6e 0d 03 a2 33 | 41 44 52 20 52 31 2c 63 |defn...3|ADR R1,c|
|00000980| 68 61 72 20 3b 20 43 68 | 72 20 74 6f 20 72 65 61 |har ; Ch|r to rea|
|00000990| 64 2c 20 61 64 64 72 65 | 73 73 20 74 6f 20 61 6e |d, addre|ss to an|
|000009a0| 73 77 65 72 20 69 6e 0d | 03 ac 11 53 57 49 20 22 |swer in.|...SWI "|
|000009b0| 4f 53 5f 57 6f 72 64 22 | 0d 03 b6 1b 4d 4f 56 20 |OS_Word"|....MOV |
|000009c0| 52 30 2c 23 38 3a 53 54 | 52 42 20 52 30 2c 42 6c |R0,#8:ST|RB R0,Bl|
|000009d0| 65 66 74 0d 03 c0 0c 2e | 6e 6f 5f 6e 65 78 74 0d |eft.....|no_next.|
|000009e0| 03 ca 0f 4c 44 52 20 52 | 30 2c 4d 65 6e 64 0d 03 |...LDR R|0,Mend..|
|000009f0| d4 11 4c 44 52 20 52 31 | 2c 4d 74 61 62 6c 65 0d |..LDR R1|,Mtable.|
|00000a00| 03 de 09 2e 6c 6f 6f 70 | 0d 03 e8 14 4c 44 4d 49 |....loop|....LDMI|
|00000a10| 41 20 52 30 2c 7b 52 33 | 2c 52 34 7d 0d 03 f2 10 |A R0,{R3|,R4}....|
|00000a20| 53 55 42 20 52 30 2c 52 | 30 2c 23 38 0d 03 fc 10 |SUB R0,R|0,#8....|
|00000a30| 4c 44 52 42 20 52 32 2c | 5b 52 33 5d 0d 04 06 10 |LDRB R2,|[R3]....|
|00000a40| 53 54 52 42 20 52 32 2c | 5b 52 34 5d 0d 04 10 0d |STRB R2,|[R4]....|
|00000a50| 43 4d 50 20 52 30 2c 52 | 31 0d 04 1a 0c 42 4e 45 |CMP R0,R|1....BNE|
|00000a60| 20 6c 6f 6f 70 0d 04 24 | 0e 4d 4f 56 20 50 43 2c | loop..$|.MOV PC,|
|00000a70| 52 31 34 0d 04 2e 05 3a | 0d 04 38 09 2e 74 65 78 |R14....:|..8..tex|
|00000a80| 74 0d 04 42 5b 45 51 55 | 53 20 22 2a 20 2a 20 2a |t..B[EQU|S "* * *|
|00000a90| 20 20 54 68 69 73 20 69 | 73 20 61 20 62 75 63 6b |  This i|s a buck|
|00000aa0| 65 74 2d 62 72 69 67 61 | 64 65 20 6f 72 20 63 6f |et-briga|de or co|
|00000ab0| 6e 76 65 79 6f 72 20 62 | 65 6c 74 20 73 63 72 6f |nveyor b|elt scro|
|00000ac0| 6c 6c 20 62 79 20 4d 61 | 74 74 68 65 77 20 41 73 |ll by Ma|tthew As|
|00000ad0| 74 6c 65 79 20 20 2a 20 | 2a 20 2a 22 0d 04 4c a6 |tley  * |* *"..L.|
|00000ae0| 45 51 55 53 20 22 20 20 | 20 20 20 20 20 20 20 20 |EQUS "  |        |
|00000af0| 49 66 20 79 6f 75 20 61 | 72 65 20 6d 61 64 20 65 |If you a|re mad e|
|00000b00| 6e 6f 75 67 68 20 74 6f | 20 77 61 6e 74 20 74 6f |nough to| want to|
|00000b10| 20 75 73 65 20 69 74 20 | 69 6e 20 61 6e 20 65 78 | use it |in an ex|
|00000b20| 68 69 62 69 74 69 6f 6e | 20 6f 72 20 73 6f 6d 65 |hibition| or some|
|00000b30| 74 68 69 6e 67 20 6f 66 | 20 74 68 61 74 20 6e 61 |thing of| that na|
|00000b40| 74 75 72 65 2c 20 79 6f | 75 20 63 61 6e 20 63 68 |ture, yo|u can ch|
|00000b50| 61 6e 67 65 20 74 68 65 | 20 74 65 78 74 20 77 68 |ange the| text wh|
|00000b60| 65 72 65 20 69 74 20 73 | 61 79 73 20 22 22 2e 74 |ere it s|ays "".t|
|00000b70| 65 78 74 22 22 20 69 6e | 20 50 52 4f 43 61 73 73 |ext"" in| PROCass|
|00000b80| 6d 22 0d 04 56 55 45 51 | 55 53 20 22 20 20 54 68 |m"..VUEQ|US "  Th|
|00000b90| 65 20 74 65 78 74 20 73 | 68 6f 75 6c 64 20 62 65 |e text s|hould be|
|00000ba0| 20 64 69 76 69 64 65 64 | 20 75 70 20 69 6e 74 6f | divided| up into|
|00000bb0| 20 73 65 63 74 69 6f 6e | 73 20 6f 66 20 6c 65 73 | section|s of les|
|00000bc0| 73 20 74 68 61 6e 20 32 | 35 35 20 63 68 61 72 61 |s than 2|55 chara|
|00000bd0| 63 74 65 72 73 2e 22 0d | 04 60 7f 45 51 55 53 20 |cters.".|.`.EQUS |
|00000be0| 22 20 20 20 20 20 49 66 | 20 79 6f 75 20 77 61 6e |"     If| you wan|
|00000bf0| 74 20 74 72 69 70 6c 65 | 20 68 65 69 67 68 74 20 |t triple| height |
|00000c00| 74 65 78 74 2c 20 61 64 | 64 20 61 6e 6f 74 68 65 |text, ad|d anothe|
|00000c10| 72 20 22 22 53 54 52 42 | 20 52 32 2c 5b 52 33 5d |r ""STRB| R2,[R3]|
|00000c20| 2c 23 31 22 22 20 61 66 | 74 65 72 20 77 68 65 72 |,#1"" af|ter wher|
|00000c30| 65 20 69 74 20 73 61 79 | 73 20 44 6f 75 62 6c 65 |e it say|s Double|
|00000c40| 20 68 65 69 67 68 74 20 | 69 6e 20 2e 73 68 75 66 | height |in .shuf|
|00000c50| 66 6c 65 20 2c 22 0d 04 | 6a 6f 45 51 55 53 20 22 |fle ,"..|joEQUS "|
|00000c60| 41 6e 64 20 63 68 61 6e | 67 65 20 74 68 65 20 63 |And chan|ge the c|
|00000c70| 6f 6c 25 3d 31 36 20 74 | 6f 20 63 6f 6c 25 3d 32 |ol%=16 t|o col%=2|
|00000c80| 34 20 69 6e 20 50 52 4f | 43 69 6e 69 74 2e 20 20 |4 in PRO|Cinit.  |
|00000c90| 20 20 20 54 68 65 20 70 | 61 74 68 20 66 6f 72 6d |   The p|ath form|
|00000ca0| 75 6c 61 20 63 61 6e 20 | 61 6c 73 6f 20 62 65 20 |ula can |also be |
|00000cb0| 63 68 61 6e 67 65 64 20 | 69 6e 20 50 52 4f 43 69 |changed |in PROCi|
|00000cc0| 6e 69 74 2e 22 0d 04 74 | 42 45 51 55 53 20 22 20 |nit."..t|BEQUS " |
|00000cd0| 20 20 20 20 41 74 20 74 | 68 65 20 65 6e 64 20 6f |    At t|he end o|
|00000ce0| 66 20 74 68 65 20 74 65 | 78 74 2c 20 69 74 20 72 |f the te|xt, it r|
|00000cf0| 65 70 65 61 74 73 3a 20 | 20 20 20 20 20 20 20 20 |epeats: |        |
|00000d00| 20 20 20 20 20 20 22 0d | 04 7e 0b 2e 65 6e 64 54 |      ".|.~..endT|
|00000d10| 78 74 0d 04 88 09 41 4c | 49 47 4e 0d 04 92 05 3a |xt....AL|IGN....:|
|00000d20| 0d 04 9c 0a 2e 74 61 62 | 6c 65 0d 04 a6 07 5d 3a |.....tab|le....]:|
|00000d30| ed 0d 04 b0 05 e1 0d 04 | ba 05 3a 0d 04 c4 09 dd |........|..:.....|
|00000d40| 20 f2 67 6f 0d 04 ce 05 | 87 0d 04 d8 05 f5 0d 04 | .go....|........|
|00000d50| e2 0e 20 d6 20 73 68 75 | 66 66 6c 65 0d 04 ec 07 |.. . shu|ffle....|
|00000d60| fd 20 30 0d 04 f6 05 e1 | 0d 05 00 05 3a 0d 05 0a |. 0.....|....:...|
|00000d70| 0c dd 20 f2 74 61 62 6c | 65 0d 05 14 05 f7 0d 05 |.. .tabl|e.......|
|00000d80| 1e 13 e3 20 41 25 3d 30 | 20 b8 20 63 6f 6c 25 2d |... A%=0| . col%-|
|00000d90| 31 0d 05 28 10 20 78 25 | 28 41 25 29 3d 73 74 58 |1..(. x%|(A%)=stX|
|00000da0| 25 0d 05 32 13 20 79 25 | 28 41 25 29 3d 73 74 59 |%..2. y%|(A%)=stY|
|00000db0| 25 2b 41 25 0d 05 3c 05 | ed 0d 05 46 43 e7 20 73 |%+A%..<.|...FC. s|
|00000dc0| 70 65 65 64 25 3c 31 20 | 84 20 73 70 65 65 64 25 |peed%<1 |. speed%|
|00000dd0| 3e 38 20 8c 20 85 20 30 | 2c 22 43 68 6f 6f 73 65 |>8 . . 0|,"Choose|
|00000de0| 20 61 20 72 65 61 73 6f | 6e 61 62 6c 65 20 73 70 | a reaso|nable sp|
|00000df0| 65 65 64 2c 20 70 6c 65 | 61 73 65 22 0d 05 50 05 |eed, ple|ase"..P.|
|00000e00| f5 0d 05 5a 2d 20 e3 20 | 43 25 3d 30 20 b8 20 63 |...Z- . |C%=0 . c|
|00000e10| 6f 6c 25 2d 31 3a f4 20 | 43 25 20 75 73 65 64 20 |ol%-1:. |C% used |
|00000e20| 69 6e 20 50 52 4f 43 74 | 6f 5f 66 72 6f 6d 0d 05 |in PROCt|o_from..|
|00000e30| 64 15 20 20 e3 20 53 25 | 3d 31 20 b8 20 73 70 65 |d.  . S%|=1 . spe|
|00000e40| 65 64 25 0d 05 6e 20 20 | 20 20 58 3d 78 25 28 30 |ed%..n  |  X=x%(0|
|00000e50| 29 2d 53 25 3a 4e 25 3d | a0 28 66 24 29 2d 79 25 |)-S%:N%=|.(f$)-y%|
|00000e60| 28 30 29 0d 05 78 32 20 | 20 20 f2 74 6f 5f 66 72 |(0)..x2 |  .to_fr|
|00000e70| 6f 6d 28 78 25 28 43 25 | 29 2c 79 25 28 43 25 29 |om(x%(C%|),y%(C%)|
|00000e80| 2c 78 25 28 43 25 29 2d | 53 25 2c 79 25 28 43 25 |,x%(C%)-|S%,y%(C%|
|00000e90| 29 2b 4e 25 29 0d 05 82 | 07 20 20 ed 0d 05 8c 06 |)+N%)...|.  .....|
|00000ea0| 20 ed 0d 05 96 15 20 78 | 25 28 29 3d 78 25 28 29 | ..... x|%()=x%()|
|00000eb0| 2d 73 70 65 65 64 25 0d | 05 a0 11 20 79 25 28 29 |-speed%.|... y%()|
|00000ec0| 3d 79 25 28 29 2b 4e 25 | 0d 05 aa 0d fd 20 78 25 |=y%()+N%|..... x%|
|00000ed0| 28 30 29 3c 33 0d 05 b4 | 05 e1 0d 05 be 05 3a 0d |(0)<3...|......:.|
|00000ee0| 05 c8 1b dd 20 f2 74 6f | 5f 66 72 6f 6d 28 58 25 |.... .to|_from(X%|
|00000ef0| 2c 59 25 2c 41 25 2c 42 | 25 29 0d 05 d2 3b f4 20 |,Y%,A%,B|%)...;. |
|00000f00| 50 69 78 65 6c 20 28 58 | 25 2c 59 25 29 20 74 6f |Pixel (X|%,Y%) to|
|00000f10| 20 28 41 25 2c 42 25 29 | 20 28 49 66 20 58 25 3d | (A%,B%)| (If X%=|
|00000f20| 33 31 39 2c 20 73 6f 75 | 72 63 65 20 69 73 20 69 |319, sou|rce is i|
|00000f30| 6e 70 75 74 29 0d 05 dc | 30 e7 20 58 25 3c 33 31 |nput)...|0. X%<31|
|00000f40| 39 20 8c 20 21 50 25 3d | 73 63 72 25 2b 58 25 2b |9 . !P%=|scr%+X%+|
|00000f50| 59 25 2a 33 32 30 20 8b | 20 21 50 25 3d 69 6e 70 |Y%*320 .| !P%=inp|
|00000f60| 75 74 2b 43 25 0d 05 e6 | 17 50 25 21 34 3d 73 63 |ut+C%...|.P%!4=sc|
|00000f70| 72 25 2b 41 25 2b 42 25 | 2a 33 32 30 0d 05 f0 0d |r%+A%+B%|*320....|
|00000f80| 3f 28 50 25 21 34 29 3d | 91 0d 05 fa 09 50 25 2b |?(P%!4)=|.....P%+|
|00000f90| 3d 38 0d 06 04 05 e1 0d | ff                      |=8......|.       |
+--------+-------------------------+-------------------------+--------+--------+